c========================================================================
      subroutine setsqrt(y)
      Use SimpleModule
      real(kind=8):: y
      x = sqrt(y)
      return
      end
c========================================================================
